#!/usr/bin/env perl

use utf8;
use strict;

my $dir = $ARGV[0];

opendir my $dh, $dir or die "Cannot open directory $dir : $!.\n";

foreach my $file (sort readdir $dh){
	next if $file eq '.' or $file eq '..';
	print $file."\n";
}

closedir $dh;
